Armageddon - Interactive Preview/Interactive Preview: Armageddon.iso/pc/control.dxr/Scripts & Behaviors_21_M2 Behavior.ls

Text File | 1998-05-19 | 567 b | 22 lines

property pThisSprite, pTotalCasts, pCounter, pStartCast

on new me
  set pThisSprite to the currentSpriteNum
  set pTotalCasts to 25
  set pCounter to 1
  set pStartCast to the memberNum of sprite pThisSprite
end

on exitFrame me
  if random(20) > 12 then
    if pCounter > pTotalCasts then
      set pCounter to 0
      set the memberNum of sprite pThisSprite to pStartCast
    else
      set thisMember to the memberNum of sprite pThisSprite
      set the memberNum of sprite pThisSprite to thisMember + 1
      set pCounter to pCounter + 1
    end if
  end if
end